tvariable $c
tvariable $cr

list tcp_v4_rcv
trace 1873 if ($cpu_id == 0)
  commands
    teval $c=$c+1
    teval $cr=$cr+cr
  end

define showall
  p $c
  p $cr/$c
end